SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCAMAR_ANTC_U01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS S.A.                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M«dulo               : Empresa                    --*/
/*---Programa             : Actualizacion Tipo Operac. --*/ 
/*---                       Bancos                     --*/
/*---Script               : tcmovi_b.sql               --*/
/*---Nombre SP            : SP_TCAMAR_ANTC_U01         --*/
/*---Desarrollado por     : Denis Villacres.           --*/
/*---Fecha Creaci«n       : 13/03/2002                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi«n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci«n   :                            --*/ 
/*---Detalle Modificaci«n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TCAMAR_ANTC_U01                      --*/
/*---Grant all on SP_TCAMAR_ANTC_U01 to public         --*/ 
/*---SP_TCAMAR_ANTC_U01                                --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR 	   TD_VC_002, 
 @ISCO_USUA_MODI   TD_VC_008_USUA,
 @ISCO_TIPO_OPER   TD_VC_003,
 @ISNU_AMAR        TD_VC_008,
 @ISCO_UNID_CONC   TD_VC_003,
 @IDFE_AMAR	   TD_DT_001
	As
Begin Tran SP_TCAMAR_ANTC_U01
  
   	Update 	TCAMAR_ANTC
	Set 	CO_TIPO_OPER = @ISCO_TIPO_OPER, 
		CO_USUA_MODI = @ISCO_USUA_MODI, 
	  	FE_USUA_MODI = Getdate()
   	Where   CO_EMPR = @ISCO_EMPR 
		And CO_UNID_CONC = @ISCO_UNID_CONC
   		And NU_AMAR = @ISNU_AMAR
		And FE_AMAR = @IDFE_AMAR


   	If @@error <> 0
        Begin
          Rollback tran
          Return
        End

   	Update 	TTAMAR_ANTA
	Set 	CO_TIPO_OPER = @ISCO_TIPO_OPER, 
		CO_USUA_MODI = @ISCO_USUA_MODI, 
	  	FE_USUA_MODI = Getdate()
   	Where   CO_EMPR = @ISCO_EMPR 
		And CO_UNID_CONC = @ISCO_UNID_CONC
   		And NU_AMAR = @ISNU_AMAR
		And FE_AMAR = @IDFE_AMAR

   	If @@error <> 0
        Begin
           Rollback tran
           Return
   	End

   	Update 	TDAMAR_ANTC
   	Set 	ST_CONT = 'N', 
		CO_USUA_MODI = @ISCO_USUA_MODI, 
  		FE_USUA_MODI = Getdate()
   	Where   CO_EMPR = @ISCO_EMPR 
	And 	CO_UNID_CONC = @ISCO_UNID_CONC
   	And 	NU_AMAR = @ISNU_AMAR
	And 	FE_AMAR = @IDFE_AMAR

   	If @@error <> 0
   	   Begin
            Rollback tran
           Return
   	End

 Commit Tran

/*------------------------- Fin ------------------------------*/


GO
